home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $CONVERT_DIR.adpro < prev    next >
Text File  |  1993-06-30  |  3KB  |  181 lines
  1. /**************************************************************************  
  2.  **               ADPRO MACRO CONVERT WHOLE DIRECTORY CTR-F9 KEY         **
  3.  **************************************************************************/
  4. TRACE ON
  5. if ~show('L','rexxsupport.library') then do
  6. addlib("rexxsupport.library",0,-30,0)
  7. say show('l')
  8. end
  9.  
  10. NL = "0A"X
  11.  
  12. OPTIONS RESULTS
  13.  
  14. ADDRESS "ADPro"
  15. LFORMAT 'UNIVERSAL'
  16. SFORMAT = 'IFF'
  17. STRING = '"CONVERT A WHOLE DIRECTORY?"'
  18. OKAY2 STRING
  19. IF RC = 0 THEN EXIT
  20. TYPE.0='LO-RES'
  21. TYPE.1='INTERLACE'
  22. TYPE.2='MED-RES'
  23. TYPE.3='HI-RES'
  24. TYPE.24='LO-RES OS'
  25. TYPE.25='INTERLACE'
  26. TYPE.26='MED-RES OS'
  27. TYPE.27='HI-RES OS'
  28. ; TYPE.28='HI-RES OS'
  29. DITHER.0='NON DITHERED'
  30. DITHER.6='DITHERED'
  31. CALL GETFORMAT
  32. IF ST = 1 | ST = 25 | ST = 3 | ST = 27 | ST = 2 | ST = 26  THEN RT = 16
  33. ELSE CALL GETCOLOR 
  34. CALL GETDITHER
  35. INTERPRET 'TYPE.ST'
  36. INTERPRET 'DITHER.DT'
  37. SUB = DITHER.DT||' '|| TYPE.ST||' '||RT
  38. STRING = 'CONVERT TO '||NL||SUB' CLS.'
  39.  
  40. OKAY2 STRING
  41. IF RC = 0 THEN EXIT  
  42. CALL GETIN
  43. CALL GETOUT
  44. LIST = SHOWDIR(INDRIVE,'F')
  45. TOTAL = WORDS(LIST)
  46.  
  47. CALL CONVERT
  48.  
  49. STRING1 = AF||' OF 'TOTAL||' FILES CONVERTED TO '||INDRIVE
  50. OKAY1 STRING1
  51.  
  52. EXIT
  53.  
  54.  
  55. CONVERT:
  56. AF = 0
  57. WP = 1
  58. DITHER DT
  59. SCREEN_TYPE ST
  60. RENDER_TYPE RT
  61. PSTATUS LOCKED
  62. DO WHILE WP <=  TOTAL
  63.     R = WORD(LIST,WP)
  64.     
  65.             
  66.             LF = INDRIVE ||  R
  67.             SF = OUTDRIVE || R
  68.             LOAD LF
  69.                 IF ST = 0 THEN DO 
  70.                 ABS_SCALE 320 200
  71.                 END
  72.                 ELSE IF ST = 1 THEN DO 
  73.                 ABS_SCALE 640 200
  74.                 END
  75.                 ELSE IF ST = 2 THEN DO 
  76.                 ABS_SCALE 320 400
  77.                 END
  78.                 ELSE IF ST = 3 THEN DO
  79.                 ABS_SCALE 640 400
  80.                 END
  81.                 ELSE IF ST = 24 THEN DO
  82.                 ABS_SCALE 368 241
  83.                 END
  84.                 ELSE IF ST = 25 THEN DO
  85.                 ABS_SCALE 736 241
  86.                 END
  87.                 ELSE IF ST = 26 THEN DO
  88.                 ABS_SCALE 368 482
  89.                 END
  90.                 ELSE ABS_SCALE 736 482
  91.                 
  92.                  EXECUTE
  93.                 SAVE SF "IMAGE"
  94.                 AF = AF + 1
  95.                 WP = WP + 1
  96.         
  97. END
  98.  
  99. RETURN
  100.  
  101.  
  102.  
  103. GETIN:
  104. GETDIR "'SELECT SOURCE DIRECTORY'" 'EH0:'
  105. INDRIVE = ADPRO_RESULT
  106. IF RC ~= 0 THEN SIGNAL GETIN
  107. ELSE DO
  108. INDRIVE = ADPRO_RESULT
  109.          INDRIVE = STRIP(INDRIVE)
  110.         IF RIGHT(INDRIVE,1) ~= ':' THEN INDRIVE = INDRIVE || '/'
  111. END
  112. RETURN
  113. GETOUT:
  114. GETDIR "'SELECT DESTINATION DIRECTORY'"
  115. OUTDRIVE = ADPRO_RESULT
  116. IF RC ~= 0 THEN SIGNAL GETIN
  117. ELSE DO
  118.          OUTDRIVE = STRIP(OUTDRIVE)
  119.         IF RIGHT(OUTDRIVE,1) ~= ':' THEN OUTDRIVE = OUTDRIVE || '/'
  120. END
  121. RETURN
  122. ERROR:
  123.     ERR = ADPRO_RESULT
  124.     OKAY2 ERR
  125. RETURN
  126. GETDITHER:
  127. STRING = '"DITHER IMAGES?"'
  128. OKAY2 STRING
  129. IF RC ~= 0 THEN DT = 6
  130. ELSE DT = 0
  131. RETURN
  132.  
  133. GETFORMAT:
  134. STRING = '"CONVERT TO LO-RES?"'
  135. OKAY2 STRING
  136. IF RC ~= 0 THEN DO
  137. ST = 0
  138. CALL OVERSCAN
  139. RETURN
  140. END
  141. STRING = '"CONVERT TO MED-RES"'
  142. OKAY2 STRING
  143. IF RC ~= 0 THEN DO
  144. ST = 2
  145. CALL OVERSCAN
  146. RETURN
  147. END
  148. STRING = '"INTERLACE IMAGES"'
  149. OKAY2 STRING
  150. IF RC ~= 0 THEN DO
  151. ST = 1
  152. CALL OVERSCAN
  153. RETURN
  154. END
  155. ST = 3 
  156. CALL OVERSCAN
  157. RETURN
  158.  
  159. GETCOLOR:
  160. STRING = '"CONVERT TO HAM?"'
  161. OKAY2 STRING
  162. IF RC ~= 0 THEN RT = "HAM"
  163. ELSE DO
  164.     STRING = '"HALF BRIGHT MODE?"'
  165.     OKAY2 STRING
  166.     IF RC ~= 0 THEN DO
  167.     RT = "EHB"
  168.     RETURN
  169.     END
  170.     ELSE RT = "32"
  171. END
  172.  
  173. RETURN
  174.  
  175. OVERSCAN:
  176. STRING = '"OVERSCAN IMAGES?"'
  177. OKAY2 STRING
  178. IF RC ~= 0 THEN ST = ST + 24
  179. RETURN
  180.  
  181.